home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000079_icon-group-sender _Mon Nov 16 12:46:59 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: from kingfisher.CS.Arizona.EDU (kingfisher.CS.Arizona.EDU [192.12.69.239])
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) with SMTP id MAA22393
  4.     for <icon-group-addresses@baskerville.CS.Arizona.EDU>; Mon, 16 Nov 1998 12:46:58 -0700 (MST)
  5. Received: by kingfisher.CS.Arizona.EDU (5.65v4.0/1.1.8.2/08Nov94-0446PM)
  6.     id AA08430; Mon, 16 Nov 1998 12:46:58 -0700
  7. Message-Id: <4FD6422BE942D111908D00805F3158DF0757B742@RED-MSG-52>
  8. From: Todd Proebsting <toddpro@microsoft.com>
  9. To: "'nr@labrador.cs.virginia.edu'" <nr@labrador.cs.virginia.edu>,
  10.         icon-group@optima.CS.Arizona.EDU
  11. Subject: RE: Coding multi-part patterns, as in SNOBOL
  12. Date: Mon, 16 Nov 1998 10:03:46 -0800
  13. X-Mailer: Internet Mail Service (5.5.2232.9)
  14. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  15. Status: RO
  16.  
  17. >From the request, I inferred---perhaps wrongly---that initial blanks were to
  18. be removed *only* if followed by at least one angle bracket.  The solution
  19. below always removes initial blanks, regardless of what follows.
  20.  
  21. Todd Proebsting
  22.  
  23. -----Original Message-----
  24. From: nr@labrador.cs.virginia.edu [mailto:nr@labrador.cs.virginia.edu]
  25. Sent: Friday, November 13, 1998 2:44 PM
  26. To: icon-group@optima.CS.Arizona.EDU
  27. Subject: Re: Coding multi-part patterns, as in SNOBOL
  28.  
  29.  
  30. In article <Pine.LNX.3.95.981113120727.7576B-100000@smarty.smart.net>,
  31. Mark Laster  <mlaster@smart.net> wrote:
  32. >One of my programs in ICON processes e-mail messages.  It does 
  33. >more than the snippet shown here, but for purposes of 
  34. >discussion, it removes the "e-mail quotation" marks from lines of 
  35. >text.  As you know, those marks in aggregate may be either: 
  36. >
  37. >  (1) one or more angle brackets, starting at the left margin, or
  38. >
  39. >  (2) one or more spaces, starting at the left margin, FOLLOWED 
  40. >      IMMEDIATELY BY one or more angle brackets.
  41. >
  42. >To remove these "e-mail quote" marks, I needed about 20 lines, 
  43. >as shown below.
  44.  
  45. procedure strip_email_quote(s)
  46.   return s ? { tab(many(' ')); tab(many('>')); tab(0) }
  47. end
  48.  
  49.  
  50.